www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/admin/Admin.asp
<% dim ComeUrl,cUrl,AdminName ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER"))) if ComeUrl="" then response.write "<br><p align=center><font color='red'>对不起,为了系统安全,不允许直接输入地址访问本系统的后台管理页面。</font></p>" response.end else cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME")) if mid(ComeUrl,len(cUrl)+1,1)=":" then cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT") end if cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME")) end if AdminName=replace(session("AdminName"),"'","") if AdminName="" then call CloseConn() response.redirect "login.asp" response.End() end if sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'" set rs=conn.execute(sql) if rs.eof and rs.bof then rs.close response.Redirect("login.asp") response.End() end if %>